home *** CD-ROM | disk | FTP | other *** search
/ Avalon 2 / Avalon_02_1995-06_Avalon_Side_B.d64 / screen dump (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  462b  |  17 lines
  1. 60000 open 4,4:print#4,chr$(15)
  2. 60010 for a=1024 to 2023 step 40
  3. 60020 for x=0 to 39
  4. 60040 d=peek(x+a)
  5. 60050 if d>127 then d=d-128:r$=chr$(18):o$=chr$(146)
  6. 60060 p=d-((d<32 or d>95)*64)-((d>63 and d<96)*32)
  7. 60070 p$=p$+r$+chr$(p)+o$
  8. 60080 r$="":o$=""
  9. 60090 next x
  10. 60100 print#4,p$
  11. 60110 p$="":next a
  12. 60120 close 4:end
  13. 60200 rem*******************************
  14. 60500 rem***in order to obtain hardcopys  of screens containing upper and lower
  15. 60600 rem***case characters line 60000                 must be changed to:
  16. 60700 rem***open4,4,7:print#4,chr$(145)
  17.